home *** CD-ROM | disk | FTP | other *** search
/ Developer Helper 1: Phil & Dave's Excellent CD / Excellent CD HFS.raw / Utilities / LaserWriter Font Utility / LaserWriter Font Utility.rsrc / STR#_129.txt < prev    next >
Text File  |  1987-12-18  |  813b  |  17 lines
  1. vmstatus exch sub = pop flush
  2.  
  3. (temp/font) (w) file /dskfile exch def /str 4096 string def {currentfile str readstring exch dskfile exch writestring {} {dskfile closefile exit} ifelse} loop
  4.  
  5. 0 serverdict begin exitserver
  6.  
  7. serverdict begin 0 exitserver statusdict begin 0 1 initializedisk 20 setuserdiskpercent end
  8.  
  9. (%cartridge1%fonts/*) {dup length 18 sub 18 exch getinterval ==} 200 string filenameforall
  10.  
  11. (%disk%fonts/*) {dup length 12 sub 12 exch getinterval ==} 200 string filenameforall
  12.  
  13. /str 100 string def FontDirectory {pop str cvs == flush} forall
  14.  
  15. statusdict begin (%t%) = statusdict /diskstatus known {statusdict /diskonline known {diskonline{(%a%) =}if}{(%m%) =}ifelse diskstatus 0 gt {(%i%) =} if pop}if statusdict /cartstatus known {(%cartridge1%) cartstatus {(%c%) = pop pop pop} if} if flush end
  16.  
  17.